home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / djgpp / contrib / pdcurs22 / src / private / pdcgetsc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-01-26  |  24.6 KB  |  1,181 lines
  1. /*
  2. ***************************************************************************
  3. * This file comprises part of PDCurses. PDCurses is Public Domain software.
  4. * You may use this code for whatever purposes you desire. This software
  5. * is provided AS IS with NO WARRANTY whatsoever.
  6. * Should this software be used in another application, an acknowledgement
  7. * that PDCurses code is used would be appreciated, but is not mandatory.
  8. *
  9. * Any changes which you make to this software which may improve or enhance
  10. * it, should be forwarded to the current maintainer for the benefit of 
  11. * other users.
  12. *
  13. * The only restriction placed on this code is that no distribution of
  14. * modified PDCurses code be made under the PDCurses name, by anyone
  15. * other than the current maintainer.
  16. * 
  17. * See the file maintain.er for details of the current maintainer.
  18. ***************************************************************************
  19. */
  20. #define    CURSES_LIBRARY    1
  21. #include <curses.h>
  22. #ifdef UNIX
  23. #include <defs.h>
  24. #include <term.h>
  25. #endif
  26.  
  27. #ifdef PDCDEBUG
  28. char *rcsid_PDCgetsc  = "$Id$";
  29. #endif
  30.  
  31. /*man-start*********************************************************************
  32.  
  33.   PDC_get_cursor_pos()    - return current cursor position
  34.  
  35.   PDCurses Description:
  36.      This is a private PDCurses function
  37.  
  38.      Gets the cursor position in video page 0.  'row' and 'column'
  39.      are the cursor address.  At this time, there is no support for
  40.      use of multiple screen pages.
  41.  
  42.   PDCurses Return Value:
  43.      This routine will return OK upon success and otherwise ERR will be
  44.      returned.
  45.  
  46.   PDCurses Errors:
  47.      There are no defined errors for this routine.
  48.  
  49.   Portability:
  50.      PDCurses    int    PDC_get_cursor_pos( int* row, int* col );
  51.  
  52. **man-end**********************************************************************/
  53.  
  54. int    PDC_get_cursor_pos(int *row, int *col)
  55. {
  56. #ifdef PDCDEBUG
  57.     if (trace_on) PDC_debug("PDC_get_cursor_pos() - called\n");
  58. #endif
  59.  
  60. #ifdef    FLEXOS
  61.     retcode = s_get(T_VIRCON, 0L, (char *) &vir, (long) sizeof(vir));
  62.     if (retcode < 0L)
  63.         return( ERR );
  64.     *row = vir.vc_cursor.pos_row;
  65.     *col = vir.vc_cursor.pos_col;
  66.     return( OK );
  67. #endif
  68.  
  69. #ifdef    DOS
  70.     regs.h.ah = 0x03;
  71.     regs.h.bh = _cursvar.video_page;
  72.     int86(0x10, ®s, ®s);
  73.     *row = regs.h.dh;
  74.     *col = regs.h.dl;
  75.     return( OK );
  76. #endif
  77.  
  78. #ifdef    OS2
  79. # ifdef EMXVIDEO
  80.     v_getxy (col, row);
  81. # else
  82.     VioGetCurPos((PUSHORT)row,(PUSHORT)col,0);
  83. # endif
  84.     return( OK );
  85. #endif
  86.  
  87. #ifdef UNIX
  88. /* INCOMPLETE */
  89. #endif
  90. }
  91.  
  92. /*man-start*********************************************************************
  93.  
  94.   PDC_get_cur_col()    - get current column position of cursor
  95.  
  96.   PDCurses Description:
  97.      This is a private PDCurses function
  98.  
  99.      This routine returns the current column position of the cursor on
  100.      screen.
  101.  
  102.   PDCurses Return Value:
  103.      This routine returns the current column position of the cursor. No
  104.      error is returned.
  105.  
  106.   PDCurses Errors:
  107.      There are no defined errors for this routine.
  108.  
  109.   Portability:
  110.      PDCurses    int    PDC_get_cur_col( void );
  111.  
  112. **man-end**********************************************************************/
  113.  
  114. int    PDC_get_cur_col(void)
  115. {
  116. #ifdef    OS2
  117. # ifdef EMXVIDEO
  118.     int curCol=0, curRow=0;
  119. # else
  120.     USHORT curCol=0, curRow=0;
  121. # endif
  122. #endif
  123.  
  124. #ifdef PDCDEBUG
  125.     if (trace_on) PDC_debug("PDC_get_cur_col() - called\n");
  126. #endif
  127.  
  128. #ifdef    FLEXOS
  129.     retcode = s_get(T_VIRCON, 1L, (char *) &vir, (long) sizeof(vir));
  130.     return( (retcode < 0L) ? ERR : vir.vc_cursor.pos_col );
  131. #endif
  132.  
  133. #ifdef    DOS
  134. # ifdef WATCOMC
  135.     regs.w.ax = 0x0003;
  136. # else
  137.     regs.x.ax = 0x0003;
  138. # endif
  139.     regs.h.bh = _cursvar.video_page;
  140.     int86(0x10, ®s, ®s);
  141.     return((int) regs.h.dl);
  142. #endif
  143.  
  144. #ifdef    OS2
  145.     /* find the current cursor position */
  146. # ifdef EMXVIDEO
  147.     v_getxy (&curCol, &curRow);
  148. # else
  149.     VioGetCurPos ((PUSHORT) &curRow, (PUSHORT) &curCol, 0);
  150. # endif
  151.     return (curCol);
  152. #endif
  153.  
  154. #ifdef UNIX
  155. /* INCOMPLETE */
  156. #endif
  157. }
  158.  
  159. /*man-start*********************************************************************
  160.  
  161.   PDC_get_cur_row()    - get current row position of cursor
  162.  
  163.   PDCurses Description:
  164.      This is a private PDCurses function
  165.  
  166.      This routine returns the current row position of the cursor on
  167.      screen.
  168.  
  169.   PDCurses Return Value:
  170.      This routine returns the current row position of the cursor. No
  171.      error is returned.
  172.  
  173.   PDCurses Errors:
  174.      There are no defined errors for this routine.
  175.  
  176.   Portability:
  177.      PDCurses    int    PDC_get_cur_row( void );
  178.  
  179. **man-end**********************************************************************/
  180.  
  181. int    PDC_get_cur_row(void)
  182. {
  183. #ifdef    OS2
  184. # ifdef  EMXVIDEO
  185.     int curCol=0, curRow=0;
  186. # else
  187.     USHORT curCol=0, curRow=0;
  188. # endif
  189. #endif
  190.  
  191. #ifdef PDCDEBUG
  192.     if (trace_on) PDC_debug("PDC_get_cur_row() - called\n");
  193. #endif
  194.  
  195. #ifdef    FLEXOS
  196.     retcode = s_get(T_VIRCON, 1L, (char *) &vir, (long) sizeof(vir));
  197.     return( (retcode < 0L) ? ERR : vir.vc_cursor.pos_col );
  198. #endif
  199.  
  200. #ifdef    DOS
  201. # ifdef WATCOMC
  202.     regs.w.ax = 0x0003;
  203. # else
  204.     regs.x.ax = 0x0003;
  205. # endif
  206.     regs.h.bh = _cursvar.video_page;
  207.     int86(0x10, ®s, ®s);
  208.     return ((int) regs.h.dh);
  209. #endif
  210.  
  211. #ifdef    OS2
  212.     /* find the current cursor position */
  213. # ifdef EMXVIDEO
  214.     v_getxy (&curCol, &curRow);
  215. # else
  216.     VioGetCurPos ((PUSHORT) &curRow, (PUSHORT) &curCol, 0);
  217. # endif
  218.     return (curRow);
  219. #endif
  220.  
  221. #ifdef UNIX
  222. /* INCOMPLETE */
  223. #endif
  224. }
  225.  
  226. /*man-start*********************************************************************
  227.  
  228.   PDC_get_attribute()    - Get attribute at current cursor
  229.  
  230.   PDCurses Description:
  231.      This is a private PDCurses function
  232.  
  233.      Return the current attr at current cursor position on the screen.
  234.  
  235.   PDCurses Return Value:
  236.      This routine will return OK upon success and otherwise ERR will be
  237.      returned.
  238.  
  239.   PDCurses Errors:
  240.      There are no defined errors for this routine.
  241.  
  242.   Portability:
  243.      PDCurses    int    PDC_get_attribute( void );
  244.  
  245. **man-end**********************************************************************/
  246.  
  247. int    PDC_get_attribute(void)
  248. {
  249. #ifdef    OS2
  250. # ifndef EMXVIDEO
  251.     USHORT cellLen = 2;
  252. # endif
  253.     int curRow=0, curCol=0;
  254.     char Cell[4];
  255. #endif
  256.  
  257. #ifdef PDCDEBUG
  258.     if (trace_on) PDC_debug("PDC_get_attribute() - called\n");
  259. #endif
  260.  
  261. #ifdef    FLEXOS
  262.     /* Get and return current attribute.  Force error until fixed. */
  263.     return ((COLOR_CYAN) >> ((sizeof(ch type) / 2) * 8));
  264. #endif
  265.  
  266. #ifdef    DOS
  267. # ifdef WATCOMC
  268.     regs.w.ax = 0x0800;
  269. # else
  270.     regs.x.ax = 0x0800;
  271. # endif
  272.     regs.h.bh = _cursvar.video_page;
  273.     int86(0x10, ®s, ®s);
  274.     return ((int) regs.h.ah);
  275. #endif
  276.  
  277. #ifdef    OS2
  278.     PDC_get_cursor_pos(&curRow, &curCol);
  279. # ifdef EMXVIDEO
  280.     v_getline (Cell, curCol, curRow, 1);
  281. # else
  282.     VioReadCellStr((PCH)&Cell, (PUSHORT)&cellLen, (USHORT)curRow, (USHORT)curCol, 0);
  283. # endif
  284.     return ((int) Cell[1]);
  285. #endif
  286.  
  287. #ifdef UNIX
  288. /* INCOMPLETE */
  289. #endif
  290. }
  291.  
  292. /*man-start*********************************************************************
  293.  
  294.   PDC_get_columns()    - return width of screen/viewport.
  295.  
  296.   PDCurses Description:
  297.      This is a private PDCurses function
  298.  
  299.      This function will return the width of the current screen.
  300.  
  301.   PDCurses Return Value:
  302.      This routine will return OK upon success and otherwise ERR will be
  303.      returned.
  304.  
  305.   PDCurses Errors:
  306.      There are no defined errors for this routine.
  307.  
  308.   Portability:
  309.      PDCurses    int    PDC_get_columns( void );
  310.  
  311. **man-end**********************************************************************/
  312.  
  313. int    PDC_get_columns(void)
  314. {
  315. #ifdef    DOS
  316.     int    cols=0;
  317.     char *env_cols=NULL;
  318. #endif
  319.  
  320. #ifdef    OS2
  321. # ifdef EMXVIDEO
  322.     int rows=0;
  323. # else
  324.     VIOMODEINFO modeInfo;
  325. # endif
  326.     int cols=0;
  327.     char *env_cols=NULL;
  328. #endif
  329.  
  330.  
  331. #ifdef PDCDEBUG
  332.     if (trace_on) PDC_debug("PDC_get_columns() - called\n");
  333. #endif
  334.  
  335. #ifdef    FLEXOS
  336.     return( vir.vc_size.rs_ncols );
  337. #endif
  338.  
  339. #ifdef    DOS
  340. /* use the value from COLS environment variable, if set. MH 10-Jun-92 */
  341. /* and use the minimum of COLS and return from int10h    MH 18-Jun-92 */
  342.     regs.h.ah = 0x0f;
  343.     int86(0x10, ®s, ®s);
  344.     cols = (int)regs.h.ah;
  345.     env_cols = (char *)getenv("COLS");
  346.     if (env_cols != (char *)NULL)
  347.     {
  348.         cols = min(atoi(env_cols),cols);
  349.     }
  350. #ifdef PDCDEBUG
  351.     if (trace_on) PDC_debug("PDC_get_columns() - returned: cols %d\n",cols);
  352. #endif
  353.     return(cols);
  354. #endif
  355.  
  356. #ifdef    OS2
  357. # ifdef EMXVIDEO
  358.     v_dimen (&cols, &rows);
  359. # else
  360.     modeInfo.cb = sizeof(modeInfo);
  361.     VioGetMode(&modeInfo, 0);
  362.     cols = modeInfo.col;
  363. # endif
  364.     env_cols = (char *)getenv("COLS");
  365.     if (env_cols != (char *)NULL)
  366.     {
  367.         cols = min(atoi(env_cols),cols);
  368.     }
  369. #ifdef PDCDEBUG
  370.     if (trace_on) PDC_debug("PDC_get_columns() - returned: cols %d\n",cols);
  371. #endif
  372.     return(cols);
  373. #endif
  374.  
  375. #ifdef UNIX
  376. #ifdef PDCDEBUG
  377.     if (trace_on) PDC_debug("PDC_get_columns() - returned: cols %d\n",columns);
  378. #endif
  379.     return(columns);
  380. #endif
  381.  
  382. #if defined(XCURSES)
  383.     return(XCurses_get_cols());
  384. #endif
  385. }
  386.  
  387. /*man-start*********************************************************************
  388.  
  389.   PDC_get_cursor_mode()    - Get the cursor start and stop scan lines.
  390.  
  391.   PDCurses Description:
  392.      Gets the cursor type to begin in scan line startrow and end in
  393.      scan line endrow.  Both values should be 0-31.
  394.  
  395.   PDCurses Return Value:
  396.      This function returns OK on success and ERR on error.
  397.  
  398.   PDCurses Errors:
  399.      No errors are defined for this function.
  400.  
  401.   Portability:
  402.      PDCurses    int PDC_get_cursor_mode( void );
  403.  
  404. **man-end**********************************************************************/
  405.  
  406. int    PDC_get_cursor_mode(void)
  407. {
  408. #ifdef    DOS
  409.     short    cmode=0;
  410. #endif
  411.  
  412. #ifdef    OS2
  413. # ifdef EMXVIDEO
  414.     int curstart=0, curend=0;
  415. # else
  416.     VIOCURSORINFO cursorInfo;
  417. # endif
  418.     short    cmode=0;
  419. #endif
  420.  
  421. #ifdef PDCDEBUG
  422.     if (trace_on) PDC_debug("PDC_get_cursor_mode() - called\n");
  423. #endif
  424.  
  425. #ifdef    FLEXOS
  426.     /*
  427.      * Under FLEXOS, this routine returns 1 if the cursor is on and 0 if
  428.      * the cursor is off...
  429.      */
  430.     s_getfield(T_VIRCON, VC_MODE, STDOUT, (far BYTE *) & vir,
  431.         sizeof(vir.vc_mode));
  432.  
  433.     if (vir.vc_mode & VCWM_CURSOR)
  434.         return (TRUE);
  435.     else
  436.         return (FALSE);
  437. #endif
  438.  
  439. #ifdef    DOS
  440.     cmode = getdosmemword (0x460);
  441.     return (cmode);
  442. #endif
  443.  
  444. #ifdef    OS2
  445. # ifdef EMXVIDEO
  446.     v_getctype (&curstart, &curend);
  447.     cmode = ((curstart << 8) | (curend));
  448. # else
  449.     VioGetCurType (&cursorInfo, 0);
  450. /* I am not sure about this JGB */
  451.     cmode = ((cursorInfo.yStart << 8) | (cursorInfo.cEnd));
  452. # endif
  453.     return(cmode);
  454. #endif
  455.  
  456. #ifdef UNIX
  457.     return(0);/* this is N/A */
  458. #endif
  459.  
  460. #if defined (XCURSES)
  461.     return(0);/* this is N/A */
  462. #endif
  463. }
  464.  
  465. /*man-start*********************************************************************
  466.  
  467.   PDC_get_font()    - Get the current font size
  468.  
  469.   PDCurses Description:
  470.      This is a private PDCurses routine.
  471.  
  472.      This function returns the current font size.  This function only
  473.      works if the #define FAST_VIDEO is true.
  474.  
  475.   PDCurses Return Value:
  476.      This function returns OK on success and ERR on error.
  477.  
  478.   PDCurses Errors:
  479.      An ERR will be returned if FAST_VIDEO is not true.
  480.  
  481.   Portability:
  482.      PDCurses    int PDC_get_font( void );
  483.  
  484. **man-end**********************************************************************/
  485.  
  486. int    PDC_get_font(void)
  487. {
  488. #if    defined (DOS) && defined (FAST_VIDEO)
  489.     int    retval=0;
  490. #endif
  491.  
  492. #ifdef OS2
  493. # ifdef EMXVIDEO
  494.     int    retval=0;
  495. # else
  496.     VIOMODEINFO modeInfo={0};
  497. # endif
  498. #endif
  499.  
  500. #ifdef PDCDEBUG
  501.     if (trace_on) PDC_debug("PDC_get_font() - called\n");
  502. #endif
  503.  
  504. #if    defined (DOS) && defined (FAST_VIDEO)
  505.     retval = getdosmemword (0x485);
  506.     if ((retval == 0) && (_cursvar.adapter == _MDS_GENIUS))
  507.     {
  508.         retval = _FONT15; /* Assume the MDS Genius is in 66 line mode. */
  509.     }
  510.     switch (_cursvar.adapter)
  511.     {
  512.     case _MDA:
  513.             retval = 10; /* POINTS is not certain on MDA/Hercules */
  514.             break;
  515.     case _EGACOLOR:
  516.     case _EGAMONO:
  517.         switch (retval)
  518.         {
  519.         case _FONT8:
  520.         case _FONT14:
  521.             break;
  522.         default:
  523.             retval = _FONT14;
  524.         }
  525.         break;
  526.  
  527.     case _VGACOLOR:
  528.     case _VGAMONO:
  529.         switch (retval)
  530.         {
  531.         case _FONT8:
  532.         case _FONT14:
  533.         case _FONT16:
  534.             break;
  535.         default:
  536.             break;
  537.         }
  538.         break;
  539.     default:
  540.         break;
  541.     }
  542.     return( retval );
  543. #endif
  544.  
  545. #ifdef OS2
  546. # ifdef EMXVIDEO
  547.     retval = v_hardware();
  548.     return (retval == V_MONOCHROME) ? 14 : (retval == V_COLOR_8) ? 8 : 12;
  549. # else
  550.     modeInfo.cb = sizeof(modeInfo);
  551.             /* set most parameters of modeInfo */
  552.     VioGetMode(&modeInfo, 0);
  553.     return ( modeInfo.vres / modeInfo.row);
  554. # endif
  555. #endif
  556.  
  557. #ifdef UNIX
  558.     return(0); /* this is N/A */
  559. #endif
  560. }
  561.  
  562. /*man-start*********************************************************************
  563.  
  564.   PDC_get_rows()    - Return number of screen rows.
  565.  
  566.   PDCurses Description:
  567.      This is a private PDCurses routine.
  568.  
  569.      Returns the maximum number of rows supported by the display.
  570.      e.g.  25, 28, 43, 50, 60, 66...
  571.  
  572.   PDCurses Return Value:
  573.      This function returns OK on success and ERR on error.
  574.  
  575.   PDCurses Errors:
  576.      No errors are defined for this function.
  577.  
  578.   Portability:
  579.      PDCurses    int PDC_get_rows( void );
  580.  
  581. **man-end**********************************************************************/
  582.  
  583. int    PDC_get_rows(void)
  584. {
  585. #ifdef    DOS
  586.     char *env_rows=NULL;
  587.     int    rows=0;
  588. #endif
  589.  
  590. #ifdef    OS2
  591. # ifdef EMXVIDEO
  592.     int    cols=0;
  593. # else
  594.     VIOMODEINFO modeInfo={0};
  595. # endif
  596.     int    rows=0;
  597.     char *env_rows=NULL;
  598. #endif
  599.  
  600. #ifdef PDCDEBUG
  601.     if (trace_on) PDC_debug("PDC_get_rows() - called\n");
  602. #endif
  603.  
  604. #ifdef    FLEXOS
  605.         return (vir.vc_size.rs_nrows);
  606. #endif
  607.  
  608. #ifdef    DOS
  609. /* use the value from LINES environment variable, if set. MH 10-Jun-92 */
  610. /* and use the minimum of LINES and *ROWS.                MH 18-Jun-92 */
  611.     rows = getdosmembyte(0x484) + 1;
  612.     env_rows = (char *)getenv("LINES");
  613.     if (env_rows != (char *)NULL)
  614.         rows = min(atoi(env_rows),rows);
  615.  
  616.     if ((rows == 1) && (_cursvar.adapter == _MDS_GENIUS))
  617.         rows = 66;
  618.     if ((rows == 1) && (_cursvar.adapter == _MDA))
  619.         rows = 25;  /* new test MH 10-Jun-92 */
  620.     if (rows == 1)
  621.     {
  622.         rows = _default_lines;    /* Allow pre-setting LINES     */
  623.         _cursvar.direct_video = FALSE;
  624.     }
  625.     switch (_cursvar.adapter)
  626.     {
  627.     case _EGACOLOR:
  628.     case _EGAMONO:
  629.         switch (rows)
  630.         {
  631.         case 25:
  632.         case 43:
  633.             break;
  634.         default:
  635.             rows = 25;
  636.         }
  637.         break;
  638.  
  639.     case _VGACOLOR:
  640.     case _VGAMONO:
  641. /* lets be reasonably flexible with VGAs - they could be Super VGAs */
  642. /* capable of displaying any number of lines. MH 10-Jun-92          */
  643. /*
  644.         switch (rows)
  645.         {
  646.         case 25:
  647.         case 28:
  648.         case 50:
  649.             break;
  650.         default:
  651.             rows = 25;
  652.         }
  653. */
  654.         break;
  655.  
  656.     default:
  657.         rows = 25;
  658.         break;
  659.     }
  660. #ifdef PDCDEBUG
  661.     if (trace_on) PDC_debug("PDC_get_rows() - returned: rows %d\n",rows);
  662. #endif
  663.     return (rows);
  664. #endif
  665.  
  666. #ifdef    OS2
  667. /* use the value from LINES environment variable, if set. MH 10-Jun-92 */
  668. /* and use the minimum of LINES and *ROWS.                MH 18-Jun-92 */
  669. # ifdef EMXVIDEO
  670.     v_dimen (&cols, &rows);
  671. # else
  672.     modeInfo.cb = sizeof(modeInfo);
  673.     VioGetMode(&modeInfo, 0);
  674.     rows = modeInfo.row;
  675. # endif
  676.     env_rows = (char *)getenv("LINES");
  677.     if (env_rows != (char *)NULL)
  678.         rows = min(atoi(env_rows),rows);
  679. #ifdef PDCDEBUG
  680.     if (trace_on) PDC_debug("PDC_get_rows() - returned: rows %d\n",rows);
  681. #endif
  682.     return(rows);
  683. #endif
  684.  
  685. #ifdef UNIX
  686. #ifdef PDCDEBUG
  687.     if (trace_on) PDC_debug("PDC_get_rows() - returned: rows %d\n",lines);
  688. #endif
  689.     return(lines);
  690. #endif
  691.  
  692. #if defined(XCURSES)
  693.     return(XCurses_get_rows());
  694. #endif
  695. }
  696.  
  697. /*man-start*********************************************************************
  698.  
  699.   PDC_get_scrn_mode()    - Return the current BIOS video mode
  700.  
  701.   PDCurses Description:
  702.      This is a private PDCurses routine.
  703.  
  704.  
  705.   PDCurses Return Value:
  706.      Returns the current BIOS Video Mode Number.
  707.  
  708.   PDCurses Errors:
  709.      The FLEXOS version of this routine returns an ERR.
  710.      The UNIX version of this routine returns an ERR.
  711.      The EMXVIDEO version of this routine returns an ERR.
  712.  
  713.   Portability:
  714.      PDCurses    int PDC_get_scrn_mode( void );
  715.  
  716. **man-end**********************************************************************/
  717.  
  718. #if defined( OS2 ) && !defined( EMXVIDEO )
  719. VIOMODEINFO    PDC_get_scrn_mode(void)
  720. #else
  721. int    PDC_get_scrn_mode(void)
  722. #endif
  723. {
  724. #if defined( OS2 ) && !defined( EMXVIDEO )
  725.     VIOMODEINFO vioModeInfo={0};
  726. #endif
  727.  
  728. #ifdef PDCDEBUG
  729.     if (trace_on) PDC_debug("PDC_get_scrn_mode() - called\n");
  730. #endif
  731.  
  732. #ifdef    FLEXOS
  733.     return( ERR );
  734. #endif
  735.  
  736. #ifdef    DOS
  737.     regs.h.ah = 0x0f;
  738.     int86(0x10, ®s, ®s);
  739.     return ((int) regs.h.al);
  740. #endif
  741.  
  742. #ifdef     OS2
  743. # ifdef EMXVIDEO
  744.     return(ERR);
  745. # else
  746.     VioGetMode (&vioModeInfo, 0);
  747.     return(vioModeInfo);
  748. # endif
  749. #endif
  750.  
  751. #ifdef UNIX
  752.     return(ERR); /* this is N/A */
  753. #endif
  754. }
  755.  
  756. /*man-start*********************************************************************
  757.  
  758.   PDC_query_adapter_type()    - Determine PC video adapter type
  759.  
  760.   PDCurses Description:
  761.      This is a private PDCurses routine.
  762.  
  763.      Thanks to Jeff Duntemann, K16RA for providing the impetus
  764.      (through the Dr. Dobbs Journal, March 1989 issue) for getting
  765.      the routines below merged into Bjorn Larsson's PDCurses 1.3...
  766.          -- frotz@dri.com    900730
  767.  
  768.   PDCurses Return Value:
  769.      This function returns a macro identifier indicating the adapter
  770.      type.  See the list of adapter types in CURSPRIV.H.
  771.  
  772.   PDCurses Errors:
  773.      No errors are defined for this function.
  774.  
  775.   Portability:
  776.      PDCurses    int PDC_query_adapter_type( void );
  777.  
  778. **man-end**********************************************************************/
  779.  
  780. #if defined( OS2 ) && !defined( EMXVIDEO )
  781. VIOCONFIGINFO    PDC_query_adapter_type(void)
  782. #else
  783. int    PDC_query_adapter_type(void)
  784. #endif
  785. {
  786.     int    retval = _NONE;
  787.  
  788. #ifdef    DOS
  789.         /* thanks to paganini@ax.apc.org for the GO32 fix */
  790. #  if defined(GO32) && defined(NOW_WORKS)
  791. #    include <dpmi.h>
  792.     _go32_dpmi_registers dpmi_regs;
  793. #  endif
  794.     int    equip;
  795.     struct SREGS segs;
  796.     short video_base = getdosmemword (0x463);
  797. #endif
  798.  
  799. #if defined( OS2 ) && !defined( EMXVIDEO )
  800.     VIOCONFIGINFO configInfo={0};
  801. #endif
  802.  
  803. #ifdef PDCDEBUG
  804.     if (trace_on) PDC_debug("PDC_query_adapter_type() - called\n");
  805. #endif
  806.  
  807. #ifdef    FLEXOS
  808.     return (_FLEXOS);
  809. #endif
  810.  
  811. #ifdef    DOS
  812.     /*
  813.      * Attempt to call VGA Identify Adapter Function...
  814.      */
  815.     regs.h.ah = 0x1a;
  816.     regs.h.al = 0;
  817.     int86(0x10, ®s, ®s);
  818.     if ((regs.h.al == 0x1a) && (retval == _NONE))
  819.     {
  820.         /*
  821.          * We know that the PS/2 video BIOS is alive and well.
  822.          */
  823.         switch (regs.h.al)
  824.         {
  825.         case 0:
  826.             retval = _NONE;
  827.             break;
  828.         case 1:
  829.             retval = _MDA;
  830.             break;
  831.         case 2:
  832.             retval = _CGA;
  833.             break;
  834.         case 4:
  835.             retval = _EGACOLOR;
  836.             _cursvar.sizeable = TRUE;
  837.             break;
  838.         case 5:
  839.             retval = _EGAMONO;
  840.             break;
  841.         case 26:
  842.             retval = _VGACOLOR;    /* ...alt. VGA BIOS... */
  843.         case 7:
  844.             retval = _VGACOLOR;
  845.             _cursvar.sizeable = TRUE;
  846.             break;
  847.         case 8:
  848.             retval = _VGAMONO;
  849.             break;
  850.         case 10:
  851.         case 13:
  852.             retval = _MCGACOLOR;
  853.             break;
  854.         case 12:
  855.             retval = _MCGAMONO;
  856.             break;
  857.         default:
  858.             retval = _CGA;
  859.             break;
  860.         }
  861.     }
  862.     else
  863.     {
  864.         /*
  865.          * No VGA BIOS, check for an EGA BIOS by selecting an
  866.          * Alternate Function Service...
  867.          *
  868.          * bx == 0x0010     -->  return EGA information
  869.          */
  870.         regs.h.ah = 0x12;
  871. # ifdef WATCOMC
  872.         regs.w.bx = 0x10;
  873. # else
  874.         regs.x.bx = 0x10;
  875. # endif
  876.         int86(0x10, ®s, ®s);
  877.         if ((regs.h.bl != 0x10) && (retval == _NONE))
  878.         {
  879.             /*
  880.              * An EGA BIOS exists...
  881.              */
  882.             regs.h.ah = 0x12;
  883.             regs.h.bl = 0x10;
  884.             int86(0x10, ®s, ®s);
  885.             if (regs.h.bh == 0)
  886.                 retval = _EGACOLOR;
  887.             else
  888.                 retval = _EGAMONO;
  889.         }
  890.         else
  891.         if (retval == _NONE)
  892.         {
  893.             /*
  894.              * Now we know we only have CGA or MDA...
  895.              */
  896.             int86(0x11, ®s, ®s);
  897.             equip = (regs.h.al & 0x30) >> 4;
  898.             switch (equip)
  899.             {
  900.             case 1:
  901.             case 2:
  902.                 retval = _CGA;
  903.                 break;
  904.             case 3:
  905.                 retval = _MDA;
  906.                 break;
  907.             default:
  908.                 retval = _NONE;
  909.                 break;
  910.             }
  911.         }
  912.     }
  913.     if (video_base == 0x3d4)
  914.     {
  915.         _cursvar.video_seg = 0xb800;
  916.         switch (retval)
  917.         {
  918.         case _EGAMONO:
  919.             retval = _EGACOLOR;
  920.             break;
  921.         case _VGAMONO:
  922.             retval = _VGACOLOR;
  923.             break;
  924.         default:
  925.             break;
  926.         }
  927.     }
  928.     if (video_base == 0x3b4)
  929.     {
  930.         _cursvar.video_seg = 0xb000;
  931.         switch (retval)
  932.         {
  933.         case _EGACOLOR:
  934.             retval = _EGAMONO;
  935.             break;
  936.         case _VGACOLOR:
  937.             retval = _VGAMONO;
  938.             break;
  939.         default:
  940.             break;
  941.         }
  942.     }
  943.     if ((retval == _NONE)
  944. #ifndef CGA_DIRECT
  945.     ||  (retval == _CGA)
  946. #endif
  947.     )
  948.     {
  949.         _cursvar.direct_video = FALSE;
  950.     }
  951.     if ((unsigned int) _cursvar.video_seg == 0xb000)
  952.         _cursvar.mono = TRUE;
  953.     else
  954.         _cursvar.mono = FALSE;
  955.  
  956.         /* Check for DESQview shadow buffer */
  957.         /* thanks to paganini@ax.apc.org for the GO32 fix */
  958. #if defined(GO32) && defined(NOW_WORKS)
  959.     dpmi_regs.h.ah = 0xfe;
  960.     dpmi_regs.h.al = 0;
  961.     dpmi_regs.x.di = _cursvar.video_ofs;
  962.     dpmi_regs.x.es = _cursvar.video_seg;
  963.     _go32_dpmi_simulate_int(0x10, &dpmi_regs);
  964.     _cursvar.video_ofs = dpmi_regs.x.di;
  965.     _cursvar.video_seg = dpmi_regs.x.es;
  966. #endif
  967.  
  968. #if !defined(GO32) && !defined(WATCOMC)
  969.     regs.h.ah = 0xfe;
  970.     regs.h.al = 0;
  971.     regs.x.di = _cursvar.video_ofs;
  972.     segs.es   = _cursvar.video_seg;
  973.     int86x(0x10, ®s, ®s, &segs);
  974.     _cursvar.video_ofs = regs.x.di;
  975.     _cursvar.video_seg = segs.es;
  976. #endif
  977.  
  978.     if  (!_cursvar.adapter)
  979.         _cursvar.adapter = retval;
  980.     return (PDC_sanity_check(retval));
  981. #endif
  982.  
  983. #ifdef    OS2
  984. # ifdef EMXVIDEO
  985.     _cursvar.adapter = v_hardware();
  986.     if (_cursvar.adapter == V_MONOCHROME)
  987.     {
  988.         _cursvar.mono = TRUE;
  989.         retval = _UNIX_MONO;
  990.     }
  991.     else
  992.     {
  993.         _cursvar.mono = FALSE;
  994.         retval = _UNIX_COLOR;
  995.     }
  996.     _cursvar.sizeable = TRUE;
  997.     _cursvar.bogus_adapter = FALSE;
  998.     return(retval);
  999. # else
  1000.     VioGetConfig(0, &configInfo, 0);
  1001.     _cursvar.sizeable = TRUE;
  1002.         return configInfo;
  1003. #  if     0
  1004.     switch (configInfo.adapter)
  1005.     {
  1006.         case 0:
  1007.             retval = _MDA;
  1008.             _cursvar.mono =TRUE;
  1009.             break;
  1010.         case 1:
  1011.             retval = _CGA;
  1012.             _cursvar.mono = FALSE;
  1013.             break;
  1014.         case 2: switch (configInfo.display)
  1015.             {
  1016.                 case 0:
  1017.                 case 3:
  1018.                     retval = _EGAMONO;
  1019.                     _cursvar.mono = TRUE;
  1020.                     break;
  1021.                 case 1:
  1022.                 case 2:
  1023.                 case 4:
  1024.                 case 9:
  1025.                     retval = _EGACOLOR;
  1026.                     _cursvar.mono = FALSE;
  1027.                     break;
  1028.             }
  1029.             break;
  1030.         case 3: switch (configInfo.display)
  1031.             {
  1032.                 case 0:
  1033.                 case 3:
  1034.                     retval = _VGAMONO;
  1035.                     _cursvar.sizeable = TRUE;
  1036.                     _cursvar.mono = TRUE;
  1037.                     break;
  1038.                 case 1:
  1039.                 case 2:
  1040.                 case 4:
  1041.                 case 9:
  1042.                     retval = _VGACOLOR;
  1043.                     _cursvar.sizeable = TRUE;
  1044.                     _cursvar.mono = FALSE;
  1045.                     break;
  1046.             }
  1047.             break;
  1048.         default:
  1049.             retval = _CGA;
  1050.             _cursvar.mono = FALSE;
  1051.             break;
  1052.     }
  1053.     return (PDC_sanity_check(retval));
  1054. #  endif
  1055. # endif
  1056. #endif
  1057.  
  1058. #ifdef UNIX
  1059.     if (set_foreground != NULL && set_background != NULL) /* we have a colour monitor */
  1060.         {
  1061.         _cursvar.mono = FALSE;
  1062.         retval = _UNIX_COLOR;
  1063.         }
  1064.     else
  1065.         {
  1066.         _cursvar.mono = TRUE;
  1067.         retval = _UNIX_MONO;
  1068.         }
  1069.     _cursvar.sizeable = FALSE;
  1070.     _cursvar.bogus_adapter = FALSE;
  1071. return(retval);
  1072. #endif
  1073. }
  1074.  
  1075. /*man-start*********************************************************************
  1076.  
  1077.   PDC_sanity_check() - A video adapter identification sanity check
  1078.  
  1079.   PDCurses Description:
  1080.      This is a private PDCurses routine.
  1081.  
  1082.      This routine will force sane values for various control flags.
  1083.  
  1084.   PDCurses Return Value:
  1085.      This function returns OK on success and ERR on error.
  1086.  
  1087.   PDCurses Errors:
  1088.      No errors are defined for this function.
  1089.  
  1090.   Portability:
  1091.      PDCurses    int PDC_sanity_check( int adapter );
  1092.  
  1093. **man-end**********************************************************************/
  1094.  
  1095. int    PDC_sanity_check(int adapter)
  1096. {
  1097.     int    fontsize = PDC_get_font();
  1098.     int    rows     = PDC_get_rows();
  1099.  
  1100. #ifdef PDCDEBUG
  1101.     if (trace_on) PDC_debug("PDC_sanity_check() - called: Adapter %d\n",adapter);
  1102. #endif
  1103.  
  1104.     switch (adapter)
  1105.     {
  1106.     case _EGACOLOR:
  1107.     case _EGAMONO:
  1108.         switch (rows)
  1109.         {
  1110.         case 25:    break;
  1111.         case 43:    break;
  1112.         default:
  1113.             _cursvar.bogus_adapter = TRUE;
  1114.             break;
  1115.         }
  1116.  
  1117.         switch (fontsize)
  1118.         {
  1119.         case _FONT8:    break;
  1120.         case _FONT14:    break;
  1121.         default:
  1122.             _cursvar.bogus_adapter = TRUE;
  1123.             break;
  1124.         }
  1125.         break;
  1126.  
  1127.     case _VGACOLOR:
  1128.     case _VGAMONO:
  1129.  
  1130. /*                                                                  */
  1131. /* lets be reasonably flexible with VGAs - they could be Super VGAs */
  1132. /* capable of displaying any number of lines. MH 10-Jun-92          */
  1133. /* This also applies to font size.            MH 16-Jun-92          */
  1134. /*
  1135.         switch (rows)
  1136.         {
  1137.         case 25:    break;
  1138.         case 43:    break;
  1139.         case 50:    break;
  1140.         default:
  1141.             _cursvar.bogus_adapter = TRUE;
  1142.             break;
  1143.         }
  1144.  
  1145.         switch (fontsize)
  1146.         {
  1147.         case _FONT8:    break;
  1148.         case _FONT14:    break;
  1149.         case _FONT16:    break;
  1150.         default:
  1151.             _cursvar.bogus_adapter = TRUE;
  1152.             break;
  1153.         }
  1154. */
  1155.         break;
  1156.  
  1157.     case _CGA:
  1158.     case _MDA:
  1159.     case _MCGACOLOR:
  1160.     case _MCGAMONO:
  1161.         switch (rows)
  1162.         {
  1163.         case 25:    break;
  1164.         default:
  1165.             _cursvar.bogus_adapter = TRUE;
  1166.             break;
  1167.         }
  1168.         break;
  1169.  
  1170.     default:
  1171.         _cursvar.bogus_adapter = TRUE;
  1172.         break;
  1173.     }
  1174.     if (_cursvar.bogus_adapter)
  1175.     {
  1176.         _cursvar.sizeable    = FALSE;
  1177.         _cursvar.direct_video    = FALSE;
  1178.     }
  1179.     return (adapter);
  1180. }
  1181.